(sdb): Handle tags-file-name as nil.

diff --git a/lisp/gud.el b/lisp/gud.el
index 594f88a4f2c619bbd7f74b142a8a0ca5bd5b9bdf..421bb15b33784d868ebe8b977aa78c3635032db2 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -404,7 +404,9 @@ and source-file directory for your debugger."
                               nil nil
                               '(gud-sdb-history . 1))))
   (if (and gud-sdb-needs-tags
-          (not (and (boundp 'tags-file-name) (file-exists-p tags-file-name))))
+          (not (and (boundp 'tags-file-name)
+                    (stringp tags-file-name)
+                    (file-exists-p tags-file-name))))
       (error "The sdb support requires a valid tags table to work."))
   (gud-overload-functions '((gud-massage-args . gud-sdb-massage-args)
                            (gud-marker-filter . gud-sdb-marker-filter)